﻿Imports System
Imports System.Workflow.ComponentModel

Namespace System.Workflow.Runtime.DebugEngine
    Friend NotInheritable Class WorkflowDebuggerService
        Implements IWorkflowDebuggerService
        ' Methods
        Friend Sub New(ByVal coreRuntime As IWorkflowCoreRuntime)
            If (coreRuntime Is Nothing) Then
                Throw New ArgumentNullException("coreRuntime")
            End If
            Me.coreRuntime = coreRuntime
        End Sub

        Private Sub System.Workflow.Runtime.DebugEngine.IWorkflowDebuggerService.NotifyHandlerInvoked() Implements IWorkflowDebuggerService.NotifyHandlerInvoked
            Me.coreRuntime.RaiseHandlerInvoked
        End Sub

        Private Sub System.Workflow.Runtime.DebugEngine.IWorkflowDebuggerService.NotifyHandlerInvoking(ByVal delegateHandler As Delegate) Implements IWorkflowDebuggerService.NotifyHandlerInvoking
            Me.coreRuntime.RaiseHandlerInvoking(delegateHandler)
        End Sub


        ' Fields
        Private coreRuntime As IWorkflowCoreRuntime
    End Class
End Namespace

